home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / iguana / incosrc / incosrc.exe / UTIL / SETOBJ.PAS < prev    next >
Pascal/Delphi Source File  |  1993-07-18  |  470b  |  33 lines
  1. {$M 16384,0,0}
  2.  
  3. USES Dos, Objects;
  4.  
  5.  
  6.  
  7. VAR
  8.   Seg  : STRING[4];
  9.   Name : STRING;
  10.   St   : TDosStream;
  11. BEGIN
  12.  
  13.   Seg  := '____';
  14.  
  15.   Seg  := ParamStr(3);
  16.   Seg[0]  := #4;
  17.  
  18.   Name := ParamStr(4);
  19.  
  20.   SwapVectors;
  21.   Exec(Getenv('COMSPEC'), '/c binobj '+ParamStr(1)+' '+ParamStr(2)+' '+Name);
  22.   SwapVectors;
  23.  
  24.   St.Init(ParamStr(2), stOpen);
  25.  
  26.   St.Seek(12);
  27.   St.Write(Seg[1], 4);
  28.   St.Seek(34);
  29.   St.Write(Name[1], Length(Name));
  30.  
  31.   St.Done;
  32.  
  33. END.